


Namespace Producto
Public Class FormaCompuesta



        Public Function Combo(ByVal vFormasimpleId As Integer, ByVal vTodos As Boolean, Optional ByVal vmensaje As String = "Todos") As Entity.Producto.FormaCompuestaCol
            Dim objCol As New Entity.Producto.FormaCompuestaCol
            Dim obj As New Data.Producto.FormaCompuesta
            objCol = obj.Listar("", _
              -1, _
              "", _
             vFormasimpleId, _
              -1)
            If vTodos Then
                Dim ent As New Entity.Producto.FormaCompuesta( _
                  -1, _
                  vmensaje, _
                  -1, _
                  -1)
                objCol.AddPrimero(ent)
            End If
            Return objCol
        End Function


'***************************


public Function Listar(FormaCompuestaId as integer) as Entity.Producto.FormaCompuesta

dim objEnt as  New entity.Producto.FormaCompuesta
dim obj as  New Data.Producto.FormaCompuesta
return obj.Listar(FormaCompuestaId)

End Function


'***************************



public Function Listar( _
		FormaCompuestaId as Integer, _
		Nombre as String, _
		SimpleID as Integer, _
		Standar as Integer) _
as  Entity.Producto.FormaCompuestaCol

dim objCol as  New entity.Producto.FormaCompuestaCol
dim obj as  New Data.Producto.FormaCompuesta
return obj.listar("", _
		FormaCompuestaId, _
		Nombre, _
		SimpleID, _
		Standar)

End Function


'***************************


public Function Grabar( _
		FormaCompuestaId as Integer, _
		Nombre as String, _
		SimpleID as Integer, _
		Standar as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Producto.FormaCompuesta
 if FormaCompuestaId=-1 then 
_codigo= obj.insert( "", _
		FormaCompuestaId , _
		Nombre , _
		SimpleID , _
		Standar , _
 vUSuario )
else
_codigo= obj.update( "", _
		FormaCompuestaId , _
		Nombre , _
		SimpleID , _
		Standar , _
 vUSuario )
end if 
return _codigo

End Function


'***************************


public Function Insertar( _
		FormaCompuestaId as Integer, _
		Nombre as String, _
		SimpleID as Integer, _
		Standar as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Producto.FormaCompuesta
_codigo= obj.insert( "", _
		FormaCompuestaId, _
		Nombre, _
		SimpleID, _
		Standar, _
 vUSuario )
return _codigo

End Function


'***************************


public Function Updatear( _
		FormaCompuestaId as Integer, _
		Nombre as String, _
		SimpleID as Integer, _
		Standar as Integer, _
vUSuario as integer)as  integer

dim _codigo as integer =-1
dim obj as  New Data.Producto.FormaCompuesta
_codigo= obj.Update( "", _
		FormaCompuestaId , _
		Nombre , _
		SimpleID , _
		Standar , _
 vUSuario )
return _codigo

End Function


'***************************


        Public Function ELiminar(ByVal FormaCompuestaId As Integer, ByVal vusuario As Integer, Optional ByVal vopcion As String = "Delete") As Integer
            Dim _codigo As Integer = -1
            Dim obj As New Data.Producto.FormaCompuesta
            _codigo = obj.Eliminar("vopcion", FormaCompuestaId, vusuario)
            Return _codigo

        End Function

End Class



end namespace

